home *** CD-ROM | disk | FTP | other *** search
/ Alde ADA 5 #1 / ADA CD-ROM - Alde Publishing.iso / cm / cas.sid < prev    next >
Encoding:
Text File  |  1988-05-03  |  3.7 KB  |  81 lines
  1. --= SID = SIMTEL20 Ada Software Repository Item Description File = SID =--
  2. -- UNIT NAME         : COUNT_OF_ADA_STATEMENTS
  3. -- VERSION           : 1.0
  4. -- REVIEW CODE       : 
  5. -- DDN ADDRESS       : WWHITAKER@ECLB
  6. -- AUTHOR            : W. A. Whitaker, WIS JPMO
  7. -- COPYRIGHT         : 
  8. -- DATE CREATED      : 3 MAR 84
  9. -- DATE RELEASED     : 15 JAN 85
  10. -- DATE LAST UPDATED : 3 MAR 84
  11. -- LOCATION          : ASR
  12. -- ENVIRONMENT       : 
  13. --= CLASSIFICATION       ===============================================--
  14. -- CATEGORY LEVEL 1  : PROGRAMMING TOOLS
  15. -- CATEGORY LEVEL 2  : Count of Ada Statements
  16. -- CATEGORY LEVEL 3  : 
  17. -- CATEGORY LEVEL 4  : 
  18. -- KEYWORD           : Source analysis
  19. -- KEYWORD           : Quantity
  20. -- KEYWORD           : Statements
  21. -- INDEX             : Source Analysis
  22. -- INDEX             : Analysis, Source
  23. -- INDEX             : Quantity
  24. -- INDEX             : Statements
  25. -- INDEX             : CAS
  26. -- TAXONOMY          : 
  27. -- DEPENDENCIES      : 
  28. -- SEE ALSO          : 
  29. --= FILE LISTING         ===============================================--
  30. -- FILE SPECS        : PD:<ADA.COMPONENTS>CAS2.*
  31. -- DIRECTORY DISPLAY :
  32. -- Directory   PD:<ADA.TOOLS>
  33. --      File Name     Byte Count  Line Count
  34. --   ---------------  ----------  ----------
  35. --   CAS.ADA                8465         226
  36. --   CAS.PRO                2470          62
  37. --   ===============  ==========  ==========
  38. --     2 Files             10935         288
  39. --= ABSTRACT             ===============================================--
  40. --         This  function  calculates  the  "STATEMENTS"  of  a valid Ada
  41. -- fragment specified by a FILE_NAME string parameter.  It need not be  a
  42. -- complete   compilation  unit  but  it  should  have  closed  all  open
  43. -- parentheses and string brackets.  The number of STATEMENTS of code  is
  44. -- returned as an INTEGER.
  45. -- 
  46. --         The Ada statement is defined by a semicolon terminator outside
  47. -- of  comments,  parentheses,  or  string  or  character literals.  This
  48. -- definition is insensitive to formatting or layout of the source.
  49. -- 
  50. --         There  are  exotic  cases  for which this will misestimate the
  51. -- count but we have never encountered one in real code.
  52. -- 
  53. --         This  copy  of  the  function is embedded in a test and driver
  54. -- program.  Running the program on its own source file should  give  The
  55. -- driver has an additional feature of correcting for the common error of
  56. -- leaving out the  extension  on  a  file  name.   The  nature  of  this
  57. -- extension is system dependent and a ".TXT" is used.
  58. --= REVISION HISTORY     ===============================================--
  59. --
  60. --
  61. -- DATE         VERSION         AUTHOR          HISTORY
  62. -- 19850115     1.0             W Whitaker      Initial Release
  63. --
  64. --= RELEASE NOTICE       ===============================================--
  65. --
  66. -- This software is released to the Public Domain (note:
  67. --   software released to the Public Domain is not subject
  68. --   to copyright protection).
  69. --
  70. --= DISCLAIMER           ===============================================--
  71. --     This software and its documentation are provided "AS IS" and
  72. -- without any expressed or implied warranties whatsoever.  No warranties
  73. -- as to performance, merchantability, or fitness for a particular
  74. -- purpose exist.
  75. --     The user is advised to test the software thoroughly before
  76. -- relying on it.  The user must assume the entire risk and liability of
  77. -- using this software.  In no event shall any person or organization of
  78. -- people be held responsible for any direct, indirect, consequential or
  79. -- inconsequential damages or lost profits.
  80. --======================================================================--
  81.